home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / tqm112.zip / TQM.BAT
DOS Batch File  |  1992-08-14  |  2KB  |  66 lines
  1. @echo off
  2.  
  3. rem *-------------------------------------------------*
  4. rem   Make sure there's a node number.  Use the one
  5. rem   on the command line if passed, or if it's
  6. rem   already set, leave it alone.  Otherwise, use 1.
  7. rem *-------------------------------------------------*
  8.  
  9. if not %1?==?     goto CmdLine
  10. if not %NODE%?==? goto Environ
  11.                   goto Node1
  12.  
  13. :CmdLine
  14.  
  15. rem *-------------------------------------------------*
  16. rem   TQM node number passed on the command line.
  17. rem *-------------------------------------------------*
  18.  
  19. copy c:\rbbs\node%1\drst%1.def c:\rbbs
  20. c:
  21. cd \rbbs\tqm
  22. tqm %1
  23. del c:\rbbs\drst%1.def
  24. cd \rbbs
  25. goto End
  26.  
  27. :Environ
  28.  
  29. rem *-------------------------------------------------*
  30. rem   TQM node number passed in the DOS environment.
  31. rem *-------------------------------------------------*
  32.  
  33. copy c:\rbbs\node%NODE%\drst%NODE%.def c:\rbbs
  34. c:
  35. cd \rbbs\tqm
  36. tqm %NODE%
  37. del c:\rbbs\drst%NODE%.def
  38. cd \rbbs
  39. goto End
  40.  
  41. :Node1
  42.  
  43. rem *-------------------------------------------------*
  44. rem   TQM node number not given, use 1.
  45. rem *-------------------------------------------------*
  46.  
  47. copy c:\rbbs\node1\drst1.def c:\rbbs
  48. c:
  49. cd \rbbs\tqm
  50. tqm 1
  51. del c:\rbbs\drst1.def
  52. cd \rbbs
  53. goto End
  54.  
  55. :End
  56.  
  57. rem *-------------------------------------------------*
  58. rem   If in the local mode, TQM leaves a QWK packet in
  59. rem   its work directory if the SysOp D)ownloads.  If it
  60. rem   exists, move it to the SLMR directory.
  61. rem *-------------------------------------------------*
  62.  
  63. rem if exists c:\rbbs\tqm\work\1\*.QWK copy c:\rbbs\tqm\work\1\*.QWK C:\SLMR
  64. rem if exists c:\rbbs\tqm\work\1\*.QWK del c:\rbbs\tqm\work\1\*.QWK
  65.  
  66.